
Partial Class Change
  Inherits System.Web.UI.Page

    Protected Sub Save_btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Save_btn.Click
        Dim dao As New DAOMain.USER_MSTR_DAO_PASSWORD
        Dim vo As New DAOMain.USER_MSTR_VO_PASSWORD
        Dim pFunc As New PolyFunc.ASPFunc

        vo.USER_NAME = Session("UserName")
        vo.USER_PASSWORD = Current_txt.Text

        If dao.Search(vo).Rows.Count > 0 Then
            vo.USER_PASSWORD = New_txt.Text
            vo.USER_LAST_UPD_DT = Now
            vo.USER_LAST_UPD_BY = Session("UserName")
            dao.Update(vo)

            'pFunc.MessageAlert(Me, "New Password Saved!")
            Response.Redirect("~/New_Business/Search_Policies.aspx")
        Else
            pFunc.MessageAlert(Me, "Invalid Password!")
        End If

        pFunc = Nothing
        vo = Nothing
        dao = Nothing
    End Sub
End Class
